home *** CD-ROM | disk | FTP | other *** search
/ TPUG - Toronto PET Users Group / TPUG Users Group CD / TPUG Users Group CD.iso / CRS / crs16.d81 / robadv.prg (.txt) < prev    next >
Commodore BASIC  |  2009-10-11  |  13KB  |  412 lines
  1. 0 XY=1
  2. 1 E=300:EC=40:MN=1:PN=5:T$="EMPTY":FQ=5
  3. 2 POKE53281,0:POKE53280,2:PRINT"[147]"
  4. 18 FORA=1TO30
  5. 19 PRINT"[147][156]ROBOT ADVENTURE[157][157][157][157][157][157][157][157][157][157][157][157][157][157][157][157]BY ANDREW BLEVINS"
  6. 20 PRINT"ROBOT ADVENTURE[157][157][157][157][157][157][157][157][157][157][157][157][157][157][157][157]BY ANDREW BLEVINS[147]"
  7. 21 NEXTA
  8. 22 IFXY=5THENGOTO100
  9. 23 PRINT"ROBOT ADVENTURE[157][157][157][157][157][157][157][157][157][157][157][157][157][157][157][157]                 "
  10. 24 PRINT"[144]YOUR MISSION IS TO GO TO THE CITY VEELA AND FIND KEYS,AN INTERFACE"
  11. 25 PRINT"AND A SECRET SODA MACHINE.              THEN GO TO YOUR ENERGY BOX."
  12. 26 PRINT"ENTER YOUR HOVERCRAFT TO FLY TO THE CITYBARSTRA WHERE A CRAZED"
  13. 27 PRINT"COMPUTER IS TO BLOW UP BOTH CITIES ON   ITS CRAZY WHIM! AND YOU ARE"
  14. 28 PRINT"THE CITIES ONLY HOPE. YOU WILL RECIEVE  MORE INSTRUCTIONS ONCE IN THE"
  15. 29 PRINT"CITY OF BARSTRA. SO TRY TO FIND ALL THE UNITS IN VEELA FOR YOUR TRIP!"
  16. 30 PRINT"YOUR MACHINE HAS THE ABILITY TO ABSORB  ENERGY FROM THINGS CONTAINING"
  17. 31 PRINT"ENERGY AND EACH CITY CAN ABSORB ENERGY  TOO, SO BE CAREFUL AND WATCH"
  18. 32 PRINT"OUT FOR ZAPS IN THE CITIES AND REMEMBER YOU RUN SOLEY ON ENERGY!"
  19. 33 FORA=55496TO56216:POKEA,1:FORB=1TO40:NEXTB:NEXTA
  20. 35 PRINT"[147]"
  21. 100 PRINT"YOU ARE SAFE IN YOUR ENERGY BOX NOW AND YOU HAVE";E"ENERGY UNITS."
  22. 101 POKE53280,2
  23. 105 B$="":PRINT"WHICH WAY DO YOU NEED TO TRAVEL":INPUT"V=VEELA H=HOVERCRAFT";B$
  24. 110 IFB$=""THENGOTO100
  25. 115 IFB$="V"THENGOTO200
  26. 120 IFB$="H"THENGOTO10000
  27. 125 GOTO100
  28. 200 PRINT"[147]*******WELCOME TO THE CITY VEELA!*******":POKE53280,7
  29. 210 FORA=1TO1000:NEXTA
  30. 211 FORA=1TO500:NEXTA:IFE<5THENGOTO50000
  31. 215 IFMN=1THENGOTO300
  32. 216 IFMN=2THEN310
  33. 217 IFMN=3THEN320
  34. 218 IFMN=4THEN330
  35. 219 IFMN=5THEN340
  36. 220 IFMN=6THEN350
  37. 221 IFMN=7THEN360
  38. 222 IFMN=8THEN370
  39. 223 IFMN=9THEN380
  40. 224 IFMN=10THEN390
  41. 300 GOSUB1000:PRINT"GATE BEHIND YOU-HUMS FROM THE EAST AND  WEST."
  42. 301 GOSUB1500
  43. 302 IFB$="N"THEN100
  44. 303 IFB$="S"THENMN=5
  45. 304 IFB$="E"THENPRINT"ZAP!******":MN=2:E=E-7
  46. 305 IFB$="W"THENPRINT"ZAP!******":MN=3:E=E-7
  47. 306 GOTO211
  48. 310 GOSUB1000:PRINT"DARKNESS NORTH-TUNNEL EAST-HUMMING SOUNDTO THE WEST."
  49. 311 GOSUB1500
  50. 312 IFB$="N"THENPRINT"BASH!******":E=E-14:MN=2
  51. 313 IFB$="S"THENMN=6
  52. 314 IFB$="E"THENMN=2:PQ=0:GOTO9000
  53. 315 IFB$="W"THENPRINT"ZAP!******":MN=1:E=E-7
  54. 316 GOTO211
  55. 320 GOSUB1000:PRINT"YOU CAN SEE MORE PEOPLE AND YOU FACE TO THE SOUTH."
  56. 321 GOSUB1500
  57. 322 IFB$="E"THENPRINT"ZAP!******":E=E-7:MN=1
  58. 323 IFB$="W"ORB$="N"THENPRINT"CRUNCH!***":E=E-14:MN=3
  59. 324 IFB$="S"THENMN=4
  60. 325 GOTO211
  61. 330 GOSUB1000:PRINT"YOU SEE TREES GROWING SIDE BY SIDE AND  NOTHING EAST."
  62. 331 GOSUB1500
  63. 332 IFB$="W"ORB$="S"THENPRINT"CRACK!***":E=E-11:MN=4
  64. 333 IFB$="N"THENMN=3
  65. 334 IFB$="E"THENPRINT"CLINK!!**":E=E-3:MN=5:GOTO9500
  66. 335 GOTO211
  67. 340 GOSUB1000:PRINT"YOU'RE IN THE MIDDLE OF AN INTERSECTION WITH CARS AROUND."
  68. 341 GOSUB1500
  69. 342 IFB$="N"THENMN=1
  70. 343 IFB$="S"THENPRINT"ENERGY BUZZZZ!!**":E=E+20:MN=8
  71. 344 IFB$="E"THENMN=6
  72. 345 IFB$="W"THENMN=4
  73. 346 GOTO211
  74. 350 GOSUB1000:PRINT"A BLINDING RED BLOB IS GLOWING BRIGHTLY FROM THE EAST."
  75. 351 GOSUB1500
  76. 352 IFB$="N"THENMN=2
  77. 353 IFB$="S"THENPRINT"CRASH!!***":MN=6
  78. 354 IFB$="E"THENPRINT"ENERGY BUZZZ!!**":E=E+15:MN=7
  79. 355 IFB$="W"THENMN=5
  80. 356 GOTO211
  81. 360 GOSUB1000:PRINT"YOUR IN A JUNKYARD AND THERE IS A LARGE MACHINE DUE SOUTH."
  82. 361 GOSUB1500
  83. 362 IFB$="W"THENPRINT"ZZZAP!!***":E=E-17:MN=6
  84. 363 IFB$="E"ORB$="N"THENPRINT"DING!!!***":E=E-5:MN=7
  85. 364 IFB$="S"THENPRINT"ZZZAP!!***":E=E-7:MN=10
  86. 365 GOTO211
  87. 370 GOSUB1000:PRINT"YOU FIND YOURSELF BEHIND A LARGE NUMBER OF BUILDINGS."
  88. 371 GOSUB1500
  89. 372 IFB$="S"ORB$="E"ORB$="W"THENPRINT"CLASHH!!**":E=E-13:MN=8
  90. 373 IFB$="N"THENPRINT"SMALL ZAP...":E=E+2:MN=5
  91. 374 GOTO211
  92. 380 GOSUB1000:PRINT"THERE IS A STRONG BREEZE AND IN THE DUSTYOU SEE A MACHINE."
  93. 381 GOSUB1500
  94. 382 IFB$="N"THENMN=9:GOTO9800
  95. 383 IFB$="W"ORB$="S"THENPRINT"TINKLE...CRASH**":E=E-9:MN=9
  96. 384 IFB$="E"THENPRINT"ZZZAP!!***":MN=10:E=E-24
  97. 385 GOTO211
  98. 390 GOSUB1000:PRINT"YOU SEE SCRAPMETAL-LIGHTS WEST-MAGNETIC DRAG SOUTH."
  99. 391 GOSUB1500
  100. 392 IFB$="S"THENPRINT"SWOOOOSH!!!****OWCH!!":E=E-26
  101. 393 IFB$="W"THENPRINT"ZZZZAP!!**":E=E-15:MN=9
  102. 394 IFB$="E"THENMN=10:PQ=5:GOTO9000
  103. 395 IFB$="N"THENPRINT"ZZAP!!***":E=E-19:MN=7
  104. 396 GOTO211
  105. 600 E=E+75:POKE53280,4:PN=5:MN=1
  106. 601 IFT$="KEY/PLAN/FQ"ORT$="KEY/FQ"THENT$="FQ":GOTO605
  107. 602 T$="EMPTY"
  108. 605 GOSUB1000:PRINT"******WELCOME TO THE CITY BARSTRA*******":FORA=1TO1500:NEXTA
  109. 606 PRINT"[147]YOUR MESSAGE OF MISSION INSTRUCTION IS  COMING UP...."
  110. 607 FORA=1TO2500:NEXTA
  111. 608 PRINT"[147]MISSION:YOU ARE NOW IN A VERY LARGELY   POPULATED CITY.
  112. 609 [153]"YOU HAVESYS";E"ENERGY UNITS LEFT.
  113. 610 PRINT"FIND AN ELECTRICAL FACILITY AND CHARGE  YOUR ENERGY TO 400-500 UNITS."
  114. 611 PRINT"ALSO BEWARE OF ENERGY SURGES WHILE YOU  ARE FULLY CHARGED."
  115. 612 PRINT"FIND THE RADIO ROOM AND ENTER YOUR OWN  FREQUENCY NUMBER AND CUT OFF"
  116. 613 PRINT"ALL OUTGOING SIGNALS TO INTERCEPT THE   DEATH OF A CITY."
  117. 614 PRINT"TRAVEL TO THE BOMB AND CUT THE FUSE!              ***HIT ANY KEY***"
  118. 615 GETA$:IFA$><""THENGOTO618
  119. 616 GOTO615
  120. 618 GOSUB1000:PRINT"REMEMBER THERE IS NO EXITING BARSTRA!!"
  121. 619 FORA=1TO1000:NEXTA:IFE<5THENGOTO50000
  122. 620 IFMN=1THEN700
  123. 621 IFMN=2THEN710
  124. 622 IFMN=3THEN720
  125. 623 IFMN=4THEN730
  126. 624 IFMN=5THEN740
  127. 625 IFMN=6THEN750
  128. 626 IFMN=7THEN760
  129. 627 IFMN=8THEN770
  130. 628 IFMN=9THEN780
  131. 629 IFMN=10THEN790
  132. 630 IFMN=11THEN800
  133. 631 IFMN=12THEN810
  134. 632 IFMN=13THEN820
  135. 633 IFMN=14THEN830
  136. 634 IFMN=15THEN840
  137. 635 IFMN=16THEN850
  138. 636 IFMN=17THEN860
  139. 637 IFMN=18THEN870
  140. 638 IFMN=19THEN880
  141. 639 IFMN=20THEN890
  142. 640 IFMN=21THEN900
  143. 641 IFMN=22THENGOTO20000
  144. 642 GOTO620
  145. 650 PRINT"CANNOT TRAVEL THIS WAY.."
  146. 655 RETURN
  147. 700 GOSUB1000:PRINT"JUST INSIDE OF BARSTRA YOU FEEL A LARGE ELECTRO MAGNET."
  148. 701 GOSUB1500:IFB$=""THENGOTO700
  149. 702 IFB$="W"THENGOSUB650
  150. 703 IFB$="S"THENPRINT"FIZZZ...":E=E-27:MN=2
  151. 704 IFB$="N"THENPRINT"**NO EXIT**":MN=1
  152. 705 IFB$="E"THENMN=17
  153. 706 GOTO619
  154. 710 GOSUB1000:PRINT"ALLEY TO THE WEST-MAIN STREET SOUTH":GOSUB1500
  155. 711 IFB$=""THEN710
  156. 712 IFB$="N"THENMN=1
  157. 713 IFB$="S"THENMN=3
  158. 714 IFB$="E"THENGOSUB650
  159. 715 IFB$="W"THENMN=4
  160. 716 GOTO619
  161. 720 GOSUB1000:PRINT"THERE IS A LARGE YELLOW BLOCK IN THE    WALL SCREECHING."
  162. 721 GOSUB1500:IFB$=""THENGOTO720
  163. 722 IFB$="N"THENMN=2
  164. 723 IFB$="S"THENPRINT"BILZZZ**":E=E+16:MN=13
  165. 724 IFB$="W"THENGOSUB650
  166. 725 IFB$="E"THENMN=16
  167. 726 GOTO619
  168. 730 GOSUB1000:PRINT"YOUR JUST OUTSIDE A SHOPPING MALL THAT  IS CLOSED."
  169. 731 GOSUB1500:IFB$=""THENGOTO730
  170. 732 IFB$="S"THENGOSUB650
  171. 733 IFB$="E"THENMN=2
  172. 734 IFB$="W"THENMN=5
  173. 735 IFB$="N"THENPRINT"ZUZZ**":E=E+12:MN=7
  174. 736 GOTO619
  175. 740 GOSUB1000:PRINT"THERE IS A LARGE OPENING ON THE GROUND  AND IN THE WALL."
  176. 741 GOSUB1500:IFB$=""THENGOTO740
  177. 742 IFB$="W"THENPRINT"**TELEPORT":MN=1
  178. 743 IFB$="S"THENGOSUB650
  179. 744 IFB$="N"THENPRINT"FIZZZZZ**":E=E-14:MN=6
  180. 745 IFB$="E"THENMN=4
  181. 746 GOTO619
  182. 750 GOSUB1000:PRINT"YOU SEE LARGE STEAMING PIPES ALL AROUND.":GOSUB1500
  183. 751 IFB$=""THENGOTO750
  184. 752 IFB$="N"THENPRINT"TELEPORT**":E=E-4:MN=3
  185. 753 IFB$="W"THENGOSUB650
  186. 754 IFB$="S"THENMN=5
  187. 755 IFB$="E"THENMN=7
  188. 756 GOTO619
  189. 760 GOSUB1000:PRINT"THERE IS ANOTHER MAGNETIC PULL FELT TO  THE EAST."
  190. 761 GOSUB1500:IFB$=""THENGOTO760
  191. 762 IFB$="N"THENGOSUB650
  192. 763 IFB$="E"THENPRINT"FIZZ*":E=E-6:MN=7:GOTO20500
  193. 764 IFB$="W"THENMN=6
  194. 765 IFB$="S"THENPRINT"HUMMMZZ**":E=E+19:MN=4
  195. 766 GOTO619
  196. 770 GOSUB1000:PRINT"YOU'RE INSIDE A FACTORY WITH LARGE TUBS OF ACID WEST."
  197. 771 GOSUB1500:IFB$=""THENGOTO770
  198. 772 IFB$="N"THENPRINT"VUZZ**":E=E-9:MN=9
  199. 773 IFB$="S"THENGOSUB650
  200. 774 IFB$="W"THENPRINT"BUBBLE..FIZZ..":E=E-33:GOTO619
  201. 775 IFB$="E"THENMN=10:GOTO30000
  202. 776 GOTO619
  203. 780 GOSUB1000:PRINT"YOU CAN SEE A LARGE FENCE DUE SOUTH EAST"
  204. 781 GOSUB1500:IFB$=""THENGOTO780
  205. 782 IFB$="N"THENGOSUB650
  206. 783 IFB$="S"THENPRINT"ZIZ**":E=E+4:MN=8
  207. 784 IFB$="E"THENMN=10
  208. 785 IFB$="W"THENMN=11
  209. 786 GOTO619
  210. 790 GOSUB1000:PRINT"YOU ARE AROUND A LARGE AMOUNT OF COAL   AND IT SLOWS YOU"
  211. 791 GOSUB1500:IFB$=""THENGOTO790
  212. 792 IFB$="N"ORB$="E"THENPRINT"SWOOOSH**YOU'RE STAGGARD!":E=E-39
  213. 793 IFB$="W"THENMN=9
  214. 794 IFB$="S"THENGOSUB650
  215. 795 GOTO619
  216. 800 GOSUB1000:PRINT"YOUR ATOP A MOUNTAIN AND DOWN FROM YOU  IS A FACTORY."
  217. 801 GOSUB1500:IFB$=""THENGOTO800
  218. 802 IFB$="N"THENGOSUB650
  219. 803 IFB$="W"THENPRINT"**TELEPORT":MN=4
  220. 804 IFB$="S"THENPRINT"SUTZZZ**":E=E-17:MN=12
  221. 805 IFB$="E"THENMN=9
  222. 806 GOTO619
  223. 810 GOSUB1000:PRINT"YOU ARE IN SOME WATER AND DISORIENTED-":GOSUB1500
  224. 811 IFB$=""THENGOTO810
  225. 812 IFB$="N"THENMN=11
  226. 813 IFB$="S"THENGOSUB650
  227. 814 IFB$="W"THENPRINT"SPLASHHH**":E=E-14:GOTO619
  228. 815 IFB$="E"THENMN=13
  229. 816 GOTO619
  230. 820 GOSUB1000:PRINT"YOU SPY SOMETHING SHINING TO THE WEST   AND A GREAT GLOW"
  231. 821 GOSUB1500:IFB$=""THENGOTO820
  232. 822 IFB$="N"THENMN=3
  233. 823 IFB$="S"THENGOSUB650
  234. 824 IFB$="W"THENMN=12:GOTO30500
  235. 825 IFB$="E"THENPRINT"*SPECIAL VEELA TELEPORT!!":FORA=1TO2500:NEXT:E=200:GOTO827
  236. 826 GOTO619
  237. 827 T$="EMPTY":GOTO200
  238. 830 GOSUB1000:PRINT"YOUR BESIDE A FENCED IN FIELD JUST OUT  OF BARSTRA."
  239. 831 GOSUB1500:IFB$=""THENGOTO830
  240. 832 IFB$="N"THENMN=15
  241. 833 IFB$="S"THENGOSUB650
  242. 834 IFB$="E"THENPRINT"ENERGY SURGE**":E=E+16:MN=20
  243. 835 IFB$="W"THENPRINT"CRASHHH****":E=E-18
  244. 836 GOTO619
  245. 840 GOSUB1000:PRINT"YOU'RE INSIDE A RESIDENCE AND YOU HEAR  MANY BIRDS."
  246. 841 GOSUB1500:IFB$=""THENGOTO840
  247. 842 IFB$="N"THENGOSUB650
  248. 843 IFB$="S"THENMN=14
  249. 844 IFB$="E"THENMN=19
  250. 845 IFB$="W"THENMN=16
  251. 846 GOTO619
  252. 850 GOSUB1000:PRINT"YOU FIND YOURSELF BEHIND A DRUG STORE   AND YOU FEEL LOST."
  253. 851 GOSUB1500:IFB$=""THENGOTO850
  254. 852 IFB$="N"THENMN=17:GOTO40000
  255. 853 IFB$="S"THENGOSUB650
  256. 854 IFB$="W"THENMN=3
  257. 855 IFB$="E"THENMN=15
  258. 856 GOTO619
  259. 860 GOSUB1000:PRINT"YOU'RE FOLLOWING A WALL DOWN AN OLD OLD BRICK STREET."
  260. 861 GOSUB1500:IFB$=""THENGOTO860
  261. 862 IFB$="N"THENGOSUB650
  262. 863 IFB$="S"THENPRINT"BAZZZZ**":E=E+26:MN=16
  263. 864 IFB$="E"THENMN=18
  264. 865 IFB$="W"THENMN=1
  265. 866 GOTO619
  266. 870 GOSUB1000:PRINT"YOU RUN INTO ALOT OF TREES AND OTHER    TOUGH ROBOTS.."
  267. 871 GOSUB1500:IFB$=""THENGOTO870
  268. 872 IFB$="N"THENGOSUB650
  269. 873 IFB$="S"THENMN=19
  270. 874 IFB$="W"THENMN=17
  271. 875 IFB$="E"THENPRINT"BEEP BUZZ SMASH**":E=E-20:GOSUB650
  272. 876 GOTO619
  273. 880 GOSUB1000:PRINT"YOUR JUST OUTSIDE A RESIDENCE AND THE   AIR IS CLEAR."
  274. 881 GOSUB1500:IFB$=""THENGOTO880
  275. 882 IFB$="N"THENMN=18
  276. 883 IFB$="S"THENGOSUB650
  277. 884 IFB$="W"THENMN=15
  278. 885 IFB$="E"THENPRINT"**TELEPORT":MN=1
  279. 886 GOTO619
  280. 890 GOSUB1000:PRINT"YOU'RE TRAVELING DOWN AN OLD DIRT ROAD  SYSTEMS BUZZ"
  281. 891 GOSUB1500:IFB$=""THEN890
  282. 892 IFB$="N"THENGOSUB650
  283. 893 IFB$="S"THENMN=14
  284. 894 IFB$="E"THENMN=21
  285. 895 IFB$="W"THENPRINT"TELEPORT*":MN=18
  286. 896 GOTO619
  287. 900 GOSUB1000:PRINT"YOU FIND GATES OPEN AHEAD AND A TELEPORTMACHINE SIGN."
  288. 901 GOSUB1500:IFB$=""THENGOTO900
  289. 902 IFB$="N"THENGOSUB650
  290. 903 IFB$="S"THENPRINT"TING ZZZZZ**":E=E-13:MN=22
  291. 904 IFB$="E"THENPRINT"TELEPORT*":MN=17
  292. 905 IFB$="W"THENMN=20
  293. 906 GOTO619
  294. 1000 PRINT"":FORA=1TO22:PRINT"                                        ":NEXTA
  295. 1001 PRINT"ENERGY:[158]";E"DATA:[158]";PN"UNITS:[158]";T$""
  296. 1002 IFE>500THENPRINT"ENERGY OVERLOAD****":GOTO50000
  297. 1003 RETURN
  298. 1500 B$="":INPUT"S=SOUTH N=NORTH E=EAST W=WEST";B$
  299. 1501 IFB$=""THENPRINT"NO DESIRED DIRECTION?":GOTO1500
  300. 1505 E=E-4:RETURN
  301. 9000 GOSUB1000
  302. 9005 PRINT"YOU FIND A BLACK BOX WITH AND INTERFACE ON ITS SIDE"
  303. 9010 INPUT"DO YOU WISH TO CONNECT Y=YES N=NO";B$
  304. 9015 IFB$=""THENGOTO9000
  305. 9020 IFB$="Y"THENE=E-9:PN=PN+INT(RND(1)*20)+10:GOSUB1000
  306. 9021 IFB$="N"THENGOTO9023
  307. 9022 INPUT"DO YOU WISH TO RECONNECT Y=YES N=NO";B$:GOTO9015
  308. 9023 IFT$="KEY"THENT$="KEY/PLAN"
  309. 9024 IFT$="EMPTY"THENT$="PLAN"
  310. 9025 IFT$="KEY/FQ"THENT$="KEY/PLAN/FQ"
  311. 9026 IFT$="FQ"THENT$="KEY/FQ"
  312. 9027 IFPN>125THENPRINT"[147][158]DATA OVERLOAD JAMMED....":FORA=1TO1000:NEXTA:GOTO50000
  313. 9028 GOTO211
  314. 9500 GOSUB1000
  315. 9505 PRINT"YOU'VE RUN INTO SOME KEYS DO YOU WISH TOPICK THEM UP"
  316. 9510 INPUT"Y=YES N=NO";B$
  317. 9515 IFB$="N"THENGOTO211
  318. 9520 IFB$="Y"THENE=E-10:IFT$="PLAN"THENT$="KEY/PLAN"
  319. 9521 IFT$="EMPTY"THENT$="KEY"
  320. 9522 IFT$="FQ"THENT$="KEY/FQ"
  321. 9523 IFT$="PLAN/FQ"THENT$="KEY/PLAN/FQ"
  322. 9525 GOTO211
  323. 9800 GOSUB1000
  324. 9801 MQ=RND(1)
  325. 9805 PRINT"YOU'VE RUN INTO WHAT SEEMS AS A SODA    MACHINE AND IT SPEAKS!"
  326. 9810 FORA=1TO1100:NEXTA
  327. 9815 PRINT"''THE RADIO ROOM FREQUENCY IS''[159]        ";MQ"":FORA=1TO1000:NEXTA
  328. 9816 IFT$="EMPTY"THENT$="FQ"
  329. 9817 IFT$="KEY"THENT$="KEY/FQ"
  330. 9818 IFT$="PLAN"THENT$="PLAN/FQ"
  331. 9819 IFT$="KEY/PLAN"THENT$="KEY/PLAN/FQ"
  332. 9820 FQ=MQ:GOTO211
  333. 10000 POKE53280,5
  334. 10001 PRINT"[147]*CHECKING ITEMIZED UNITS FOR HOVER CRAFT":FORA=1TO1500:NEXTA
  335. 10005 IFPN<95THENPRINT"1. LOW ON DATA TO FLY CRAFT":GOTO10015
  336. 10010 IFT$><"KEY/FQ"ORT$><"KEY/PLAN"ORT$><"KEY/PLAN/FQ"THENPRINT"2. NO KEY"
  337. 10011 IFT$="KEY/PLAN"ORT$="KEY/PLAN/FQ"ORT$="KEY/FQ"THENGOTO10020
  338. 10012 IFT$="KEY"THENPRINT"2. O.K.          "
  339. 10013 IFPN>95THENPRINT"1. O.K.           "
  340. 10015 FORA=1TO1500:NEXTA:PRINT"[147]":GOTO100
  341. 10020 FORA=1TO200:NEXTA:PRINT"1. O.K.     "
  342. 10025 PRINT"2. O.K.        ":FORA=1TO1500:NEXTA
  343. 10030 POKE53280,3:PRINT"[147]YOU HAVE SUCCESSFULLY STARTED THE CRAFT"
  344. 10035 PRINT"NOW FEEDING DATA FOR THE CITY BARSTRA...":FORA=1TO2500:NEXTA
  345. 10040 E=E+75:FORB=1TO20:PN=PN-10:IFPN<5THENGOTO10049
  346. 10045 GOSUB1000:NEXTB
  347. 10049 IFPQ>1THENGOTO10055
  348. 10051 PRINT"[147][158]DATA DOESN'T COORELATE TO THE SPECIFIC  COORDINATES TO MISSION."
  349. 10052 PRINT"RETURN TO VEELA FOR CORRECT DATA TO     COMPLETE MISSION"
  350. 10053 FORA=1TO3000:NEXTA:PRINT"[147]":GOTO100
  351. 10055 PRINT"COORDINATES SET-ON COURSE TO BARSTRA."
  352. 10065 FORA=1TO2000:NEXTA:GOTO600
  353. 20000 PRINT"[147]":GOSUB1000:PRINT"*******YOU ARE IN THE RADIO ROOM!*******"
  354. 20005 FORA=1TO2500:NEXTA
  355. 20006 IFE<400THENPRINT"[159]TELEPORT[158]-LOW ENERGY*SEE PLANT--":MN=15:GOTO20026
  356. 20007 IFFQ><MQTHENPRINT"[159]WRONG FQ-[158]**EXIT RADIO ROOM**":MN=21:GOTO20026
  357. 20010 PRINT"[147]BREAKING FQ WILL ABSORB 400 ENERGY UNITS":INPUT"E=ENTER A=ABORT";B$
  358. 20011 IFB$=""THENGOTO20006
  359. 20012 IFB$="A"THENPRINT"**ABORT**":FORA=1TO2000:NEXTA:MN=21:GOTO620
  360. 20013 PRINT"[147]CHECKING FREQUENCY AND BREAKING SIGNAL**":FORA=1TO500:NEXTA
  361. 20020 PRINT"**FREQUENCY MATCH AND BROKEN"
  362. 20021 FORA=1TO60:POKE53280,INT(RND(1)*7)+1:NEXTA
  363. 20025 MN=21:E=E-400:POKE53280,4:GOTO619
  364. 20026 FORA=1TO1500:NEXTA:GOTO619
  365. 20500 PRINT"[147]*YOU HAVE FOUND A BOMB AND IF YOU ARE TO DISARM IT BEFORE YOU CUT";
  366. 20501 PRINT"THE FREQUENCY AND HAVE NO CUTTING TOOL  YOU WOULD SURELY PERISH!! "
  367. 20502 FORA=1TO2000:NEXTA
  368. 20503 INPUT"DO YOU WISH TO DISARM IT Y=YES N=NO";B$
  369. 20504 IFB$="N"THENGOTO620
  370. 20505 IFT$="CUT"ORT$="FQ/CUT"ORT$="FQ/INTER/CUT"THENGOTO20550
  371. 20506 GOTO50000
  372. 20550 FORA=1TO50:PRINT"[159]********SUCCESSFUL DISSARMAMENT!********"
  373. 20555 PRINT"********SUCCESSFUL DISSARMAMENT!********"
  374. 20560 POKE53280,INT(RND(1)*7)+1:NEXTA:GOTO60000
  375. 30000 PRINT"[147]HERE AT THE ELECTRICAL PLANT YOU NEED   A SPECIAL INTERFACE";
  376. 30005 PRINT" TO RECIEVE ENERGY..."
  377. 30010 PRINT"......CHECKING FOR INTERFACE......"
  378. 30015 FORA=1TO2000:NEXTA
  379. 30020 IFT$="EMPTY"ORT$="FQ"ORT$="FQ/CUT"THENPRINT"DENIED..........":GOTO619
  380. 30025 PRINT"ACCEPTED........":FORA=1TO1500:NEXTA
  381. 30030 FORZ=1TO500:PRINT"[147]YOUR ENERGY IS AT";E"UNITS"
  382. 30035 PRINT"**HIT ANY KEY TO STOP INPUT OF ENERGY!":E=E+4
  383. 30040 IFE>500THENPRINT"[147]ENERGY OVERLOAD**":FORA=1TO1500:NEXTA:GOTO50000
  384. 30045 GETA$:IFA$><""THENGOTO30060
  385. 30046 NEXTZ
  386. 30060 GOSUB1000:GOTO620
  387. 30500 INPUT"[147]YOU FIND AN INTERFACE ADAPTOR DO YOU    USE IT Y=YES N=NO";B$
  388. 30510 IFB$=""THENGOTO30500
  389. 30515 IFB$="N"THENGOTO620
  390. 30520 IFT$="FQ"THENT$="FQ/INTER"
  391. 30525 IFT$="EMPTY"THENT$="INTER"
  392. 30530 IFT$="FQ/CUT"THENT$="FQ/INTER/CUT"
  393. 30535 GOTO620
  394. 40000 INPUT"[147]HERE'S A CUTTING TOOL DO YOU WISH TO    PICK IT UP Y=YES N=NO";B$
  395. 40010 IFB$=""THENGOTO40000
  396. 40015 IFB$="N"THENGOTO620
  397. 40020 IFT$="FQ"THENT$="FQ/CUT"
  398. 40025 IFT$="EMPTY"THENT$="CUT"
  399. 40030 IFT$="FQ/INTER"THENT$="FQ/INTER/CUT"
  400. 40035 IFT$="INTER"THENT$="INTER/CUT"
  401. 40040 GOTO620
  402. 50000 PRINT"[147]":POKE53281,4:POKE53280,4
  403. 50010 PRINT"[144]FOR ONE REASON OR ANOTHER THIS ROBOT    UNIT CANNOT GO ONWARD"
  404. 50015 INPUT"DO YOU WISH TO GO TO THE BOX Y=YES N=NO ";B$
  405. 50020 IFB$="Y"THENXY=5:GOTO1
  406. 50021 FORA=1TO100:PRINT"[147]GAME OVER!":NEXTA
  407. 50022 POKE53280,0:POKE53281,0
  408. 50023 GOTO50023
  409. 60000 PRINT"[147][144]MISSION COMPLETE"
  410. 60001 POKE53280,2:POKE53281,2
  411. 60002 FORA=1TO5000:NEXTA:GOTO50021
  412.